5 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53281,.:POKE53280,0:PRINT"[147]"
20 GOSUB60000
30 PRINT" [212]HIS PROGRAM WILL ONLY WORK ON A [195]-128
32 [153]" COMPUTER WITH AN 80-COLUMN MONITOR.
34 PRINT" [207]NCE YOU RUN IT, YOU'LL HAVE TO RESET
36 [153]" IN ORDER TO RETURN TO (null)(null)ATNSTR$(null)(null)ATN(null).
40 PRINT"         1 [154] [210]UN [195]64 [194][217] 80
42 [153]"         2 CONT (null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)
50 GETA$:IFA$<"1"ORA$>"2"THEN50
52 F$="HELLO CONNECT":IFA$="1"THENF$="C64 BY 80"
54 FORI=1TO10:POKE781,I:SYS59903:NEXT
55 IFA$="1"THEN60
56 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
58 IFER<>63THENEND
60 PRINT"[144]LOAD"CHR$(34)F$CHR$(34)",8"
64 PRINT"RUN"
65 IFA$="1"THENPOKE214,9:PRINT:PRINT"        [211][215][201][212][195][200] [212][207] 80 [195][207][204][213][205][206][211] [206][207][215][144]"
66 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:C64 BY 80 BOOT":CLOSE15:SAVE"C64 BY 80 BOOT",8:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[195] 6 4   [194] [217]   8 0":Z$(1)="BY [210]OBERT [210]OCKEFELLER"
60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]